perm filename INIT.LON[1,JRA] blob
sn#005867 filedate 1972-07-21 generic text, type T, neo UTF8
00100 (LE(ADD1(J) X1) ∧ LE(X1 SUB1(CN))) → LE(A(X1) A(ADD1(X1)));
00200 (LE(U X1) ∧ LE( X1 SUB1(I)) ∧ LE(SUB1(I) CN))→ LE(A(X1) BIG);
00300 (LE(U X1) ∧ LE(X1 J) ∧ LE(J SUB1 (CN))) → LE(A(X1) A(ADD1(J)));
00400 E(BIG A(LOC));
00500 LE(U LOC) ∧ LE(LOC J) ;
00600 LE(ADD1 (U) I);
00700 E(LOC J);
00800 LE(ADD1(J) I);
00900 LE(ADD1 (U) J) ∧ LE(J CN);
01000 ;
01100
00100
00200 ∀(X1 X2 X3 X4)(((((LE(ADD1(X2) X1) ∧ LE(X1 X3))→LE(A(X1) A(ADD1(X1)))) ∧ LE(X2 X3)) →LE(A(X2) A(ADD1(X2))))
00300 → ((LE(X2 X4) ∧ LE(X4 X3) )→ LE(A(X4) A(ADD1(X4)))));
00500
00100 LE(X1 X2) ∨ LE(X2 X1);
00200 (LE(X1 X2) ∧ LE(X2 X1))→ E(X1 X2);
00300 (LE(X1 X2) ∧ LE(X2 X3)) → LE(X1 X3);
00400 LE(X1 ADD1(X1));
00500 ¬E(X1 ADD1(X1));
00600 LE(X2 X1) ∨ LE(ADD1(X1) X2);
00700 LE(X1 X1);
00800 ;
00100 ∀(X1)((LE(J X1) ∧ LE(X1 SUB1 (CN))) → LE(A(X1) A(ADD1(X1))));
00200 ;